home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug202 / karel1.c < prev    next >
Text File  |  1979-12-31  |  22KB  |  684 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3.  
  4. #define CURPOS      '\033'      /* ESC */
  5. #define ERROR       -1          /* error flag */
  6. #define MAXLINE     150         /* longest input line */
  7. #define NSECTS      8           /* number of sectors */
  8. #define SECSIZ      128         /* sector size */
  9. #define CPMEOF      0x1A        /* end of file for op system */
  10. #define BRACKET     '['
  11. #define LETTERH     'H'
  12. #define SEMI        ';'
  13. #define TWO         '2'
  14. #define LETTERJ     'J'
  15.  
  16. char world[23][75];             /* array for Karel's world */
  17. int bag;                        /* Karel's beeper bag */
  18. int kst;                        /* Karel's street */
  19. int kav;                        /* Karel's avenue */
  20. char kdir;                      /* Karel's direction */
  21. int last;                       /* next loc in sym table */
  22.  
  23. main(argc,argv)
  24. int argc;                       /* number of arguments for main */
  25. char **argv;                    /* arg vector */
  26. {
  27.           char ans;
  28.           FILE *fileptr;
  29.           int speed;
  30.  
  31.           if (argc < 3)
  32.              printf("MISSING FILENAME(S)\n");
  33.           else {
  34.              if ((fileptr = fopen(argv[2],"r")) != NULL) {
  35.                 readworld(fileptr);
  36.                 printworld();
  37.              } else { 
  38.                   initworld(); 
  39.                   printworld();
  40.                }
  41.              fclose(fileptr);
  42.              set_curs(25,0,0,"CHANGE KAREL'S LOCATION? (Y/N)");
  43.              if ((ans = upper(getchr())) != 'N')
  44.                 kareloc();
  45.              set_curs(25,0,75,"CHANGE BEEPERS IN WORLD? (Y/N)");
  46.              if ((ans = upper(getchr())) != 'N')
  47.                 beeploc();
  48.              set_curs(25,0,75,"CHANGE BEEPERS IN BAG? (Y/N)");
  49.              if ((ans = upper(getchr())) != 'N')
  50.                 bagloc();
  51.              set_curs(25,0,75,"CHANGE WALL LOCATIONS? (Y/N)");
  52.              if ((ans = upper(getchr())) != 'N')
  53.                 wallsloc();
  54.              alterations();
  55.              set_curs(25,0,75,"EXECUTE PROGRAM? (Y/N)");
  56.              if ((ans = upper(getchr())) != 'Y') {
  57.                 set_curs(25,0,75,"EXIT KAREL? (Y/N)");
  58.                 if ((ans = upper(getchr())) != 'N')
  59.                    exit();
  60.              }
  61.              saveworld(argv,fileptr);
  62.              do {
  63.                 set_curs(25,0,75,"KAREL'S SPEED? (1,2,3)");
  64.                 speed = getint();
  65.              } while (speed != 1 && speed != 2 && speed != 3);
  66.              createpgm(argv,speed);
  67.           }
  68. }
  69.  
  70.  
  71. char upper(c)
  72. char c;
  73. {
  74.      return islower(c) ? c-32 : c;
  75. }
  76.  
  77. initworld()   /* initialize "empty world" */
  78. {
  79.           int i,j;
  80.           char c;
  81.  
  82.           kst = 21;                          /* init Karel's st */
  83.           kav = 4;                          /* init Karel's ave */
  84.           kdir = '0';                       /* init Karel's dir */
  85.  
  86.           for (i = 0; i < 23; i++)
  87.             for (j = 0; j < 75; j++)         /* blank out array */
  88.               world[i][j] = ' ';
  89.  
  90.           for (i = 1; i < 21; i+=2)
  91.             for (j = 8; j < 75; j += 4)
  92.               world[i][j] = '.';                     /* corners */
  93.  
  94.           for (i = 0; i < 20; i++) {
  95.             world[i][6] = '|';            /* left edge of world */
  96.             world[i][74] = '|';          /* right edge of world */
  97.           }
  98.           for (j = 6; j < 75; j++) {
  99.             world[20][j] = '-';          /* lower edge of world */
  100.             world[0][j] = '-';           /* upper edge of world */
  101.           }
  102.  
  103.           world[1][0] = 'S';            world[22][66] = 'A';
  104.           world[2][0] = 'T';            world[22][67] = 'V';
  105.           world[3][0] = 'R';            world[22][68] = 'E';
  106.           world[4][0] = 'E';            world[22][69] = 'N';
  107.           world[5][0] = 'E';            world[22][70] = 'U';
  108.           world[6][0] = 'T';            world[22][71] = 'E';
  109.           world[7][0] = 'S';            world[22][72] = 'S';
  110.  
  111.           world[1][3] = '1';  world[1][4] = '0';
  112.           for (i = 3, c = '9'; i < 21; i += 2, c--)
  113.             world[i][4] = c;                  /* number streets */
  114.  
  115.           for (j = 8, c = '1'; j < 75; j += 4, c++) {
  116.             world[21][j] = c;                 /* number avenues */
  117.             if (c > '9') {
  118.                 world[21][--j] = '1';
  119.                 world[21][++j] = c - 10;
  120.             }
  121.           }
  122. }
  123.  
  124. readworld(fptr)    /* input values from old world file */
  125. FILE *fptr;
  126. {
  127.           int i,j;
  128.  
  129.           fscanf(fptr,"%d %d %d",&kst,&kav,&bag);
  130.           kdir = getc(fptr);
  131.           for (i = 0; i < 23; i++)
  132.             for (j = 0; j < 75; j++)
  133.               world[i][j] = getc(fptr);
  134. }
  135.  
  136.  
  137. printworld()    /* output values stored in world array */
  138. {
  139.           int i,j,kst2,kav2;
  140.  
  141.           printf("%c%c%c%c",CURPOS,BRACKET,TWO,LETTERJ);
  142.           for (i = 0; i < 23; i++) {
  143.            set_curs(i+1,1,0,"");
  144.             for (j = 0; j < 75; j++) {
  145.               printf("%c",world[i][j]);
  146.             }
  147.           }
  148.           set_curs(25,37,0,"");
  149.           kst2 = (21 - kst)/2;
  150.           kav2 = (kav - 4)/4;
  151.           printf("KAREL'S ST= %d  AVE= %d  DIR= %c BAG= %d",
  152.                         kst2,kav2,kdir,bag);
  153. }
  154.  
  155.  
  156. kareloc()/* determine street, avenue and direction for KAREL */
  157. {
  158.           char ans,k;
  159.  
  160.           k = world[kst][kav];
  161.           do {
  162.              if (kst != 0 && (k == '^' || k == 'V' || 
  163.                               k == '>' || k == '<')) {
  164.                 world[kst][kav] = '.';
  165.                 set_curs(kst+1,kav+1,1,".");
  166.              }
  167.              do {
  168.                 set_curs(25,0,75,"KAREL'S STREET?");
  169.                 kst = getint();
  170.              } while (kst == 0 || kst > 10);
  171.              do {
  172.                 set_curs(25,0,75,"KAREL'S AVENUE?");
  173.                 kav  = getint();
  174.              } while (kav == 0 || kav > 17);
  175.              kst = 21 - 2 * kst;
  176.              kav = 4 + 4 * kav;
  177.              set_curs(25,0,75,"DIRECTION? (N/S/E/W)");
  178.              kdir = upper(getchr());
  179.              storekarel();
  180.              set_curs(kst+1,kav+1,1,"");
  181.              printf("%c",kdir);
  182.              set_curs(25,0,75,"IS KAREL'S LOCATION CORRECT? (Y/N)");
  183.              if ((ans = upper(getchr())) != 'Y') {
  184.                 set_curs(kst+1,kav+1,1,"");
  185.                 printf("%c", world[kst][kav]);
  186.              }
  187.          } while (ans != 'Y');
  188.          if (world[kst][kav] == '.')
  189.             world[kst][kav] = kdir;
  190. }
  191.  
  192.  
  193. storekarel()   /* determine KAREL's direction from console input */
  194. {           
  195.              char k;
  196.  
  197.              switch(kdir) {
  198.              case 'N':
  199.                 kdir = '^';
  200.                 break;
  201.              case 'S':
  202.                 kdir = 'V';
  203.                 break;
  204.              case 'E':
  205.                 kdir = '>';
  206.                 break;
  207.              case 'W':
  208.              default:
  209.                 kdir = '<';
  210.              }  
  211. }
  212.  
  213.  
  214.  
  215. beeploc()  /* determine beeper locations */
  216. {
  217.           int bst,bav,valid;
  218.           char ans;
  219.  
  220.           ans = 'Y';
  221.           while (ans != 'N') {
  222.              do {
  223.                 set_curs(25,0,75,"STREET?");
  224.                 bst = getint();
  225.              } while (bst == 0 || bst > 10);
  226.              do {
  227.                 set_curs(25,0,75,"AVENUE?");
  228.                 bav = getint();
  229.              } while (bav == 0 || bav > 17);
  230.              bst = 21 - 2 * bst;
  231.              bav = 4 + 4 * bav;
  232.              set_curs(25,0,75,"TYPE A TO ADD OR D TO DELETE BEEPER");
  233.              if ((ans = upper(getchr())) != 'D') { 
  234.                 valid = putbeeper(bst,bav);
  235.                 if (valid) {
  236.                    set_curs(bst+1,bav+1,1,"");
  237.                    printf("%c",world[bst][bav]);
  238.                    set_curs(25,0,75,"IS BEEPER LOCATION CORRECT?(Y/N)");
  239.                    if ((ans = upper(getchr())) != 'Y') {
  240.                       pickbeeper(bst,bav);
  241.                       set_curs(bst+1,bav+1,1,"");
  242.                       printf("%c",world[bst][bav]);
  243.                    }
  244.                 }
  245.              } else {
  246.                   pickbeeper(bst,bav);
  247.                   set_curs(bst+1,bav+1,1,"");
  248.                   printf("%c",world[bst][bav]);
  249.                }
  250.             set_curs(25,0,75,"OTHER BEEPER LOCATIONS? (Y/N)");
  251.             ans = upper(getchr());
  252.          } 
  253.         
  254. }
  255.  
  256.  
  257. bagloc() /* determine number of beepers in beeper bag */
  258. {
  259.           char ans;
  260.  
  261.           do {
  262.              set_curs(25,0,75,"HOW MANY BEEPERS IN BEEPER BAG?");
  263.              bag = getint();
  264.              set_curs(25,0,75,"");
  265.              printf("%d BEEPERS IN BAG, CORRECT? (Y/N)",bag);
  266.           } while ((ans = upper(getchr())) != 'Y');
  267. }
  268.  
  269.  
  270. putbeeper(bst,bav) /* place one beeper in the world */
  271. int bst,bav;       /* at bst street and bav avenue  */
  272. {
  273.           char k;
  274.  
  275.           k = world[bst][bav];
  276.           if (k == '9') {
  277.              set_curs(25,0,75,"NO MORE THAN 9 BEEPERS ON A CORNER.");
  278.              set_curs(25,36,0,"TYPE ANY CHARACTER TO CONTINUE");
  279.              getchr();
  280.              return (0);
  281.           } else {
  282.                if (k == '.' || k == '^' || k == 'V' ||
  283.                                k == '>' || k == '<')
  284.                   k = '@';
  285.                else if (k == '@')
  286.                        k = '2';
  287.                else ++k;
  288.                world[bst][bav] = k;
  289.                return(1);
  290.             }
  291. }
  292.  
  293.  
  294. pickbeeper(bst,bav)  /* remove one beeper from the world   */
  295. int bst,bav;         /* location bst street and bav avenue */
  296. {
  297.           char k;
  298.           
  299.           k = world[bst][bav];
  300.           if (k == '.' || k == '^' || k == 'V' ||
  301.                           k == '<' || k == '>') {
  302.              set_curs(25,0,75,"NO BEEPER ON CORNER.");
  303.              set_curs(25,21,0,"TYPE ANY CHARACTER TO CONTINUE.");
  304.              getchr();
  305.           } else {
  306.                if (bst == kst && bav == kav && k == '@')
  307.                   k = kdir;
  308.                else if (k == '2')
  309.                         k = '@';
  310.                else if (k != '@')
  311.                        --k;
  312.                else k = '.';
  313.                world[bst][bav] = k;
  314.             }
  315. }
  316.  
  317.  
  318. wallsloc()   /* determine wall location(s) */
  319. {
  320.           int i,j,s1,s2,st1,st2,a1,a2,av1,av2,horiz;
  321.           char ans;
  322.  
  323.           do {
  324.              do {
  325.                 set_curs(25,0,75,"BETWEEN WHAT STREETS?");
  326.                 s1 = getint();
  327.                 set_curs(25,0,40,"?");
  328.                 s2 = getint();
  329.              } while (s1 < 0 || s2 < 0 || s1 > 11 || s2 > 11);
  330.              st1 = min(s1,s2);
  331.              st2 = max(s1,s2);
  332.              horiz = abs(st2 - st1);
  333.              st1 = 20 - 2 * st1;
  334.              st2 = 22 - 2 * st2;
  335.              do {
  336.                 set_curs(25,0,40,"BETWEEN WHAT AVENUES?");
  337.                 a1 = getint();
  338.                 set_curs(25,0,40,"?");
  339.                 a2 = getint();
  340.              } while (a1 < 0 || a2 < 0 || a1 > 18 || a2 > 18);
  341.              av1 = min(a1,a2);
  342.              av2 = max(a1,a2);
  343.              av1 = 6 + 4 * av1;
  344.              av2 = 2 + 4 * av2;
  345.              set_curs(25,0,75,"TYPE A TO ADD OR D TO DELETE THE WALL.");
  346.              if ((ans = upper(getchr())) != 'D') {
  347.                 addwall(st1,st2,av1,av2,horiz);
  348.                 set_curs(25,0,40,"IS WALL LOCATION CORRECT? (Y/N)");
  349.                 if ((ans = upper(getchr())) != 'Y')
  350.                    erasewall(st1,st2,av1,av2,horiz);
  351.                 else {
  352.                    set_curs(25,0,40,"IS THIS THE LAST WALL? (Y/N)");
  353.                    ans = upper(getchr());
  354.                 }
  355.               } else {
  356.                    erasewall(st1,st2,av1,av2,horiz);
  357.                    set_curs(25,0,40,"IS THIS THE LAST WALL? (Y/N)");
  358.                    ans = upper(getchr());
  359.                 }
  360.           } while (ans != 'Y');
  361. }
  362.  
  363.  
  364. addwall(st1,st2,av1,av2,horiz)   /* add one wall to the world */
  365. int st1,st2,av1,av2,horiz;
  366. {
  367.            int i,j;
  368.  
  369.            if (horiz == 1)
  370.               for (j = av1; j <= av2; j++) {
  371.                   if (world[st1][j] == '|' ||
  372.                       world[st1][j] == '+')
  373.                       world[st1][j] = '+';
  374.                   else world[st1][j] = '-';       
  375.                   set_curs(st1+1,j+1,1,"");
  376.                   printf("%c",world[st1][j]);
  377.               }
  378.             else for (i = st2; i <= st1; i++) {
  379.                      if (world[i][av1] == '-' ||
  380.                          world[i][av1] == '+')
  381.                          world[i][av1] = '+';
  382.                      else world[i][av1] = '|'; 
  383.                      set_curs(i+1,av1+1,1,"");
  384.                      printf("%c",world[i][av1]);
  385.                  }
  386. }
  387.  
  388.  
  389. erasewall(st1,st2,av1,av2,horiz)  /* remove one wall from the world */
  390. int st1,st2,av1,av2,horiz;
  391. { 
  392.            int i,j;
  393.  
  394.            if (horiz == 1)
  395.               for (j = av1; j <= av2; j++) {
  396.                 if (j == 6 || j ==74)
  397.                    world[st1][j] = '|';
  398.                 else if (world[st1][j] == '+')
  399.                         world[st1][j] = '|';
  400.                 else world[st1][j] = ' ';
  401.                 set_curs(st1+1,j+1,1,"");
  402.                 printf("%c",world[st1][j]);
  403.               }
  404.            else for (i = st2; i <= st1; i++) {
  405.                   if (i == 0 || i == 20)
  406.                      world[i][av1] = '-';
  407.                   else if (world[i][av1] == '+')
  408.                           world[i][av1] = '-';
  409.                   else world[i][av1] = ' ';
  410.                   set_curs(i+1,av1+1,1,"");
  411.                   printf("%c",world[i][av1]);
  412.                 }
  413. }
  414.  
  415.  
  416. int atoi(n)
  417. char *n;
  418. {
  419.           int val;
  420.           char c;
  421.           int sign;
  422.           val=0;
  423.           sign=1;
  424.           while ((c = *n) == '/t' || c== ' ') ++n;
  425.           if (c== '-') {sign = -1; n++;}
  426.           while ( isdigit(c = *n++)) val = val * 10 + c - '0';
  427.           return sign*val;
  428. }
  429.  
  430. getint()  /* determine integer input from console */
  431. {
  432.           char str[5];
  433.           int in;
  434.  
  435.           inputs(str);
  436.           in = atoi(str);
  437.           return in;
  438. }
  439.  
  440.  
  441. inputs(str)   /* read string input from console */
  442. char str[];
  443. {
  444.           int j;
  445.  
  446.           j = 0;
  447.           while ((str[j++] = getchr()) != '\r')
  448.               ;
  449.           str[--j] = '\0';
  450. }
  451.  
  452.  
  453. alterations()   /* additional changes to the world */
  454. { 
  455.           char ans;
  456.  
  457.           set_curs(25,0,40,"ANY FURTHER CHANGES TO THE WORLD? (Y/N)");
  458.           while ((ans = upper(getchr())) != 'N') {
  459.              set_curs(25,0,40,"CHANGE KAREL'S POSITION? (Y/N)");
  460.              if ((ans = upper(getchr())) == 'Y')
  461.                 kareloc();
  462.              set_curs(25,0,40,"CHANGE BEEPERS IN WORLD? (Y/N)");
  463.              if ((ans = upper(getchr())) == 'Y')
  464.                 beeploc();
  465.              set_curs(25,0,40,"CHANGE BEEPERS IN BAG? (Y/N)");
  466.              if ((ans = upper(getchr())) == 'Y')
  467.                 bagloc();
  468.              set_curs(25,0,40,"CHANGE WALL LOCATIONS? (Y/N)");
  469.              if ((ans = upper(getchr())) == 'Y')
  470.                 wallsloc();
  471.              set_curs(25,0,40,"ANY FURTHER CHANGES TO THE WORLD? (Y/N)");
  472.           }
  473. }
  474.  
  475.  
  476. set_curs(row,col,blanks,mess) /* set cursor and print message */
  477. int row,col,blanks;
  478. char *mess;
  479. {
  480.           int j;
  481.  
  482.           printf("%c%c%d%c%d%c",CURPOS,BRACKET,row,SEMI,col,LETTERH);
  483.           for (j = 1; j <= blanks; j++)
  484.             printf(" ");        /* blank out previous message */
  485.           printf("%c%c%d%c%d%c",CURPOS,BRACKET,row,SEMI,col,LETTERH);
  486.           printf("%s", mess);   /* output current message */
  487. }
  488.  
  489.  
  490.  
  491. saveworld(argv,fptr)   /* save world array in second file */
  492. char **argv;
  493. FILE *fptr;
  494. {
  495.           int i,j;
  496.  
  497.           fptr = fopen(argv[2],"w");
  498.           fprintf(fptr,"%d %d %d",kst,kav,bag);
  499.           putc(kdir,fptr);
  500.           for (i = 0; i < 23; i++)
  501.             for (j = 0; j < 75; j++)
  502.               putc(world[i][j],fptr);
  503.           putc(CPMEOF,fptr);
  504.           fclose(fptr);
  505. }
  506.  
  507.  
  508. getchr()  /* low-level character input */
  509. {
  510.           char c;
  511.  
  512.           c = getch();
  513.           putch(c);
  514.           return c;
  515. }
  516.  
  517.  
  518.  
  519.  
  520. createpgm(argv,speed)   /* create C pgm from parse tree */
  521. char **argv;
  522. int speed;
  523. {
  524.           int i,in,d,fn,fs,b,t,l,reloc[10];
  525.           char newname[10][MAXLINE],fname[12];
  526.           char *test[19],*j[9];
  527.           FILE *fileptro,*fileptri;
  528.  
  529.           last = 0;
  530.           init(test); 
  531.           if ((fileptri = fopen(argv[1],"r")) == NULL)
  532.              printf("CAN'T FIND TREE FILE.\n");
  533.           else {
  534.              strcpy(fname,argv[1]); 
  535.              strcat(fname,".C");
  536.              if (( fileptro = fopen(fname,"w")) == NULL)
  537.                 printf("CAN'T CREATE NEW FILE.\n");
  538.              else {
  539.                 fprintf(fileptro,"#include <stdio.h>\n");
  540.                 fprintf(fileptro,"%s%d%s","#define SPEED   ",speed,"\n");
  541.                 fprintf(fileptro,"#include <karel.h>\n");
  542.                 setupspace(j);
  543.                 fprintf(fileptro,"int j1,j2,j3,j4,j5,j6,j7,j8;\n");
  544.                 fscanf(fileptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  545.                 fscanf(fileptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  546.                 while (i != 9) { /* translate to end of program */
  547.                     createline(j,i,in,d,newname,reloc,test,fileptri,fileptro);
  548.                     fscanf(fileptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  549.                  }
  550.                  fprintf(fileptro,"  turnoff(4);\n");
  551.                  fprintf(fileptro,"  } \n");
  552.                  putc(CPMEOF,fileptro);
  553.                  fclose(fileptri);
  554.                  fclose(fileptro);
  555.               } 
  556.           } 
  557. }
  558.  
  559. setupspace(j)      /*  initialize array of ITERATE loop counters */
  560. char *j[9];
  561. {
  562.  
  563.          char *malloc();
  564.          int i;
  565.  
  566.          for (i = 0; i <= 8; i++)
  567.               j[i] = malloc(2);
  568.          j[1] = "j1";           j[2] = "j2";
  569.          j[3] = "j3";           j[4] = "j4";
  570.          j[5] = "j5";           j[6] = "j6";
  571.          j[7] = "j7";           j[8] = "j8";
  572. }
  573.  
  574.  
  575. init(test)         /* initialize array with C version of tests */
  576. char *test[19];
  577. {
  578.  
  579.           int i;
  580.           char *malloc();
  581.  
  582. for (i = 0; i < 19; i++)        /* allocate space for tests */
  583.   test[i] = malloc(10);
  584.  
  585. test[0] = "nnorth";
  586. test[1] = "!nnorth";
  587. test[2] = "ssouth";
  588. test[3] = "!ssouth";
  589. test[4] = "eeast";
  590. test[5] = "!eeast";
  591. test[6] = "wwest";
  592. test[7] = "!wwest";
  593. test[8] = "ccorner";
  594. test[9] = "!ccorner";
  595. test[10] = "bbag";
  596. test[11] = "!bbag";
  597. test[12] = "ffront";
  598. test[13] = "!ffront";
  599. test[14] = "lleft";
  600. test[15] = "!lleft";
  601. test[16] = "rright";
  602. test[17] = "!rright";
  603. }
  604.  
  605.  
  606. createline(j,i,in,d,newname,reloc,test,fptri,fptro)
  607. int i,in,d,reloc[10];
  608. char newname[10][MAXLINE],*test[19],*j[9];
  609. FILE *fptri,*fptro;
  610. {
  611.           int k,fn,fs,b,t,l;
  612.           char w[MAXLINE];
  613.  
  614.           for (k = 0; k < (in - 1); k++)
  615.             fprintf(fptro,"  ");
  616.           if (d != 4)
  617.              switch(i) {
  618.              case 0:
  619.                 fprintf(fptro,"move();\n");
  620.                 break;
  621.              case 1:
  622.                 fprintf(fptro,"turnleft();\n");
  623.                 break;
  624.              case 2:
  625.                 fprintf(fptro,"pickbeeper();\n");
  626.                 break;
  627.              case 3:
  628.                 fprintf(fptro,"putbeeper();\n");
  629.                 break;
  630.              case 4:
  631.                 fprintf(fptro,"turnoff(0);\n");
  632.                 break;
  633.              case 5:
  634.                 fprintf(fptro,"{ \n");
  635.                 break;
  636.              case 7:
  637.                 fprintf(fptro,"\nmain(argc,argv) \n");
  638.                 fprintf(fptro,"int argc;\n");
  639.                 fprintf(fptro,"char **argv;\n");
  640.                 fprintf(fptro,"  { \n");
  641.                 fprintf(fptro,"  set_up(argv);\n");
  642.                 break;
  643.              case 8:
  644.                 fprintf(fptro,"} \n");
  645.                 break;
  646.              case 11:
  647.                 fscanf(fptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);   /* read test */
  648.                 fprintf(fptro,"if (%s)\n",test[i]);
  649.                 fscanf(fptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);   /* skip THEN */
  650.                 break;
  651.              case 13:
  652.                 fprintf(fptro,"else\n");
  653.                 break;
  654.              case 14:
  655.                 fscanf(fptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  656.                 fprintf(fptro,"for (%s = 0; %s < %d; %s++)\n",
  657.                         j[in],j[in],i,j[in]);
  658.                 break;
  659.              case 15:
  660.                 fscanf(fptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  661.                 fprintf(fptro,"while (%s)\n",test[i]);
  662.                 break;
  663.              case 16:
  664.                 fscanf(fptri,"%d %d %d %d %d %d %d %d",&i,&in,&d,&fn,&fs,&b,&t,&l);
  665.                 while ((getc(fptri)) != '\n');
  666.                 i = reloc[i] = last++;
  667.                 k = 0;
  668.                 while ((w[k++] = getc(fptri)) != '\n')
  669.                     if (w[k - 1] == '-')
  670.                        w[k - 1] = '_';
  671.                 k -= 2;
  672.                 w[k] = '\0';
  673.                 strcpy(newname[i],w); 
  674.                 fprintf(fptro,"\n%s()\n",newname[i]);
  675.                 break;
  676.              default:
  677.                 ;
  678.              }
  679.           else { 
  680.              i = reloc[i];
  681.              fprintf(fptro,"%s();\n",newname[i]);
  682.           }
  683. }
  684.